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ABSTRACT 

2 

This paper presents a computer language translator which 
allows the IBM FORTRAN G (or higher level) user to solve 
airectiy problems in which the variables may be n-tuples 
Bad/or the FORTRAN arithmetic and relational operations may 
be defined by the user. The translator, called the NSFORT 
(for NonStandard FORTRAN) translator, will (1) decompose all 
expressions to-a series of binary arithmetic operations, 
relational operations, or user defined functions; (2) gen- 
erate CALL statements to user supplied subprograms to 
perform the above operations; and (3) produce a new source 
Meoeram that is in every respect acceptable to the FORTRAN 
compiler. While using the NSFORT translator the user has 
virtually unrestricted use of FORTRAN. The translator's 
wereeeat ions inelude n=precision arithmetic, vector and 
matrix operations, numerically evaluated analytic deriv- 
atives, interval arithmetic, and others. The paper describes 
completely the use and operation of the translator, pro- 
vides examples, indicates applications, and discusses_ 


programming techniques. 
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fo TNT RODuUC Tien 
| 
‘The FORTRAN IV programming language allows the user to 


evaluate algebraic expressions when the variables are real, 
eomplex, or logical scalers, and when the operations are any 
of the standard FORTRAN* set of arithmetic, relational, or 
meercal operators. Ihe user has some flexibility with 
FORTRAN and user defined functions as long as the result is 
emsco real, complex, or logical. FORTRAN lacks the capability 
to solve directly a problem in which the variables are 
n-tuples and/or the operations are not part of the standard 
FORTRAN set. 

This paper presents a language translator (or precom- 
piler), which allows the user to define a nonstandard 
variable type (as opposed-to COMPLEX, INTEGER, LOGICAL, or 
REAL). As a consequence, the arithmetic and relational 
operators become undefined in the usual sense. Thus, this 
meamolavOr allows che user to evaluate statements such as 
A = B®C where A, B, and C may be scalers or n-tuples and 
® may be defined any way the user wishes (see Chapter IT). 
This translator will be referred to as the NSFORT translator 
(for NonStandard FORTRAN). 

As an example, assume FORTRAN IV did not have the 


capability to handle complex operations ard the user wished 


*Whenever the words "FORTRAN," "FORTRAN IV," or any of 
its variations are used herein, that implication refers to 
IBM FORTRAN G-level or higher (i.e. H, 44PS, and TSS). 








tO find.the producti of two compte. wim bie sees ne ene 


NSFORT translator the user could write the following program. 
| 
NONSTANDARD1*2 A,B,C - 
C=A*B 
END 


After translation the program would be the following. 


C 
C 
C GENERATED FORTRAN SOURCE PROGRAM 
C 
C 
= REAL*4 T$A(2,1) 
REAL*4 A(2),B(2) ,C(2) 
CALL N$AAMA (T$A(1,1), A(1), B(1)) 
CALL N$AA COC) ot See) ) 
END 


_ By supplying the following two subprograms the user is able 


to obtain the desired result. 


SUBROUTINE eye (X,A,B) 
ik bee?) sA(2) ,B(2) 
X(1)= A(1)¥B(1)-A(2)*B(2) 
X(2)=A(1)*B(2)+A(2)*B(1) 
RETURN : 
END 


SUBROUTINE N$AA (C,X) 

Picea dG (ezene x { 2) 

C(1)=X(1) 7 
C(2)=X(2) 

RETURN 

END 


As a second example take the problem of evaluating a 
vector (or cross) Broder On wwe 38clement VECvoOrs.as Unc 
user can write the NSFORT program and the two subprograms 


below. a : 








NONSTANDARD1*3 A,B,C 
C=A*B 
END 


! SUBROUTINE peel ( 
REAL*4 X(3),A(3) ,B( 

3)-B(2) 

(1)-B(3) 

(2)-B(1) 


X ,A,B) 
) 3) 
B *A( 3 
B *A(1) 
B AU) 
RETURN ) 
END 


SUBROUTINE N$AA (C,X) 
Rene (3) 1X3) 
ae ae 
Ce ae) 
C(3)=X(3) 
~ RETURN 
- END 


The translated main program is as follows. 


C 
C 
C GENERATED FORTRAN SOURCE PROGRAM 
C 
C 
REAL*4 T$A(3,1) 
REAL*4 A(3),B(3),C(3) 
CALL N$AAMA (T$A(1,1), A(1), B(1)) 
CALL N$AA CCC ayers el. 1): ) 
END 


The codes used in the above examples will be fully 
explained later but briefly the A's in the subroutine names 
Mepmesent the variable types of the arguments, Heepe oc CIeGn 
pide the M is an abbreviation for "multiply." The T$A is a 
temporary variable with A being the variable type. 

It should be noted that for the two almost identical 


main programs above, two totally different operations can be 


performed simply by supplying different subroutines. 








The NSFORT translator performs another significant task 
not illustrated in the above two examples. The translator 
ae all expressions containing nonstandard variables 
into a sequence of elementary operations just as the assign- 
ment statements above were decomposed into two elementary 
operations. (In the case above the two operations were 
multiplication and simple assignment.) Thus the user has 
only to supply the subroutines for the several elementary 
operations used in the program and then any complicated 
Miression using several elementary operations and a mixture 
of variable types can be evaluated. 

specifically the NSFORT translator will translate a 
nonstandard FORTRAN program into a normal FORTRAN program 
“aceeptable to the FORTRAN compiler. The resulting FORTRAN 
program will have the following features: (1) All nonstan- 
Sema variables, arrays, and functions will be mapped into 
conventional variables, arrays, and functions of determined 
type and determined dimension. (2) All arithmetic and 
iwmeal expressions containing nonstandard variables, 
mimeavys, e€LcC., will be decomposed into a series of elementary 
operations. (3) Simple assignment or CALL Spavencnte ene 
be written to effect the performing of the series of 
elementary functions. And (4) modifications as required 
willl be made on most other FORTRAN statements to permit the 
successful compilation and execution of the program. 

Applications for the NSFORT translator include but are 


-_— ~- 


not restricted to the following: 











(1) n-precision integer or real variable tasks 
(2) Complex or quaternion variables 
'(3) n-dimentional vector or matrix operations 


(4) Numerically evaluated analytic derivatives [Refs. 1 
and 2] 


(op interval (eretnme tt cuiime f aad 

WG) Abstract alecebraic operaulons 

It should be acknowledged that the overall concept of 
the NSFORT translator is not new. It was suggested to the 
author by Professor Rex H. Shudde, Ph.D., and is based on 
hes use of oe TYPE OTHER feature of FORTRAN 63 [Refs. 4 
emda 5). 

This thesis will not be concerned with the writing of 
_specific sets of subroutines for specific applications. 
(However, the NSFORT translator has been completely tested 
Cnrough final execution with numerical differentiation 
problems and hence, a set of subroutines for this applica- 
tion in normal precision have been written.) The reader 
should also keep in mind the general nature of the NSFORT 
translator and not feel restricted to the applications 
‘cited, For example, the number of values in an operand or 
result is not necessarily greater than one; and the user 
can redefine the elementary functions as he wishes. 

Advantages to be noted as the NSFORT translator is 
described in detail are (1) generality and flexibility of 
mame translator, (2) minimal restrictions in the use of the 


FORTRAN IV language, (3) complete accounting of variable. 








types, (4) generation of nonstandard program listing with 
eeenostie messages, and (5) complete handling of mixed- 

type expressions. Disadvantages are (1) some restrictions 
on programming, (2) the inability to automatically handle 


mput/output functions, and (3) the restriction to IBM 


FORTRAN G (or higher level) compilers. 
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Il. TRANSLATOR DESCRIPTION AND OPERATION 


‘The NSFORT translator is written in the PL/I programming 
language [Refs. 6 and 7] and is presently operational on an 
IBM 360/67 in the OS configuration. For further details 
about the times Laker see Appendix A--NSFORT Translator Pro- 
gram Descriptioon, Appendix B--Job Control Language Used 
with the NSFORT Translator, and Appendix C--NSFORT Transla- 
tor Program Listing. All conventional FORTRAN usage is in 
accordance with Reference 8. 

As noted previously, the fundamental task of the user is 
to specify (implicitly and/or explicitly) certain variables, 
arrays, and functions as nonstandard. Appendix D--Syntax 
Rules for NSFORT Statements, describes in detail this pro- 
cedure. In addition to identifying variables the user also 
mast specify the nonstendard type and the nonstandard size. 
As described in Appendix D, the nonstandard type determines 
which FORTRAN variable type the nonstandard variable will 
be mapped into, and the nonstandard size determines the size 
of the FORTRAN array that the nonstandard variable will map 


into. The examples below should clarify the relationships. 


NSFORT FORTRAN 
NONSTANDARDI*2 ALPHA REAL*4 ALPHA(2) 
NONSTD6*3 BETA,GAMMA(10,10) COMPLEX*16 BETA(3), 

GAMMA(3,10,10) 
NSTD2*3 DELTA(100) REAL*8 DELTA(3,100) 


ereenl specifications will be discussed aver. - 


aja 








Elementary operations to which nonstandard expressions 
will be decomposed are the following: 

Pe alan nie (=) ; 

Arithmetic operations (+, -, *, /, **, unary -, unary 1+) 

Relational operations (.LT., .LE., .EQ., .NE.,.GE., .GT.) 

‘Logical operations (.NOT., .AND., .OR.) 

Any non-FORTRAN user function 
Note that FORTRAN functions (SIN, COS, EXP, ALOG, etc.) are 
mewsincluded in the above list. 

Before proceeding the reader should familiarize himself 
with Appendix E--Summary of NSFORT Codes. For a complete 
description of translator action on any statement see 
Appendix F--Translator Action for Specific FORTRAN and 
Nonstandard FORTRAN Statements. 

A simple example will_illustrate the translation of the 


IMPLICIT statement and of elementary assignment statements. 


NSFORT: IMPLICIT NONSTANDARD1*2 (A-C) 
C INPUT : 
CALL INPUT(A1,B1,A2,B2,A3,B3) 
C COMPUTE 
Cl=-A1+B1 
C2=(A2ZtB2)*B2 
C3=(A3+B3)/A3**B3 = 
C4=(ASE10. )*(0=e) 
CO=F 
H=P+Q+R 
C OUTPUT 
CAIOUN OUT ( CiG2. 63.04.65) 
Soe 
END a 


MOP WM — 


Jha 








FORTRAN: 


GENERATED FORTRAN SOURCE PROGRAM 


IMPLICIT REAL*4 
INPUT 
REAL*4 T$1 
ayelleey 
*C1(2) ,C2(2 
CALL INPUT 
eles | I) 
COMPUTE 
NSAAN 


(1 
Al 
) 

( 


1 CALL 


CALL 
CALL 
2_CALL 
CALL 

- CALL 
3 CAEL 


NSAAAA 
N$AA 
N$AAAA 
N$AAMA 
N$AA 
N$SAAAA 


nme —_ Nm 
> 


CALL 
CADE 


N$AAEA 
N$AADA 
CALL N$AA 
4 CALL N$AAA1 
T$V(1) = D * 
CALL N$AAM} 
CALL N$AA 

5 CALL N$Al 

6 H=P+Q+R  _ 

OUTPUT 

Chiat OUnmeNT (Cle 
Sie 
END 


WN — 


wu Ge we we HMueve Ge w 
> > 


iv) we we te w .* w Tf w w we 


—! 
~A PRA PP~AHPe~HYP 


> 
> 


C2. 1). Cole CSG esa 


The decomposition process is illustrated in this example for 


a variety of cases. Note particularly statement 2. First 


the “addition” A2 and B2 is isolated. This result, T$A(-,1), 


meechen "multiplied" by B2 to obtain T$A(-,2), and finally 
that result is assigned to Ce. 
Other points to note in this example are 


(1) 


ee specified, used in the program are properly dimensioned 


“When IMPLICIT specification is used all variables, 


by the translator. 


Ls 








(2) Comments are passed unaltered. 

3) Statement numbers (if used) remain with the first 
penerated statement. (The statement numbers associated with 
DO loops are handled separately. See Appendix F.) 

(4) Temporary variables are properly declared and are 
reused in subsequent statements, thus temporary storage is 
ieemmi Zed , 

() Arrays invarcuments of CALL statements sorcminge mui 
ined by the first storage location. 

coe cimple arithmetic assignment is ay distincteclemen= 
tary function. This is advantageous in many applications 
Gee. it eliminates the possibility of logical errors in 
statements of the type A=A*B) and it serves to reduce the 
number of subroutines required for a specific application. 

(7) All mixed-type operations are permissible. The 
variable type of the result is predetermined. See Appendix 
G--Result Type of Mixed Type Operations. 

(8) Statements not containing nonstandard variables are 


unaltered. 


ite should be clear at this point that the user's use of 
FORTRAN must be restricted to some degree, For example, the 
NSFORT translator uses the "$" symbol and hence the user 
must limit his use of it; likewise since FORTRAN does not 
permit in excess of seven subscripts, the user is limited 
memes xX On nonstandard variables since the translator adds 
ene. Thocomioeeriertene are enumerated in Appendix H--Design 


imeieLacions and Restrictions. In case of a coding crror or, 
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in some cases such as the violation of a design limitation 
ore RD SS Osteo that prevents the translator from properly 
processing a statement, the translator will iseuesagdies— 
nostic message. This message will appear on the nonstandard 
FORTRAN program listing immediately below the statement in 
error. For a list of the error messages and explanations 
see Appendix I--NSFORT Diagnostic Messages. 


The following example will illustrate the translation 


of the logical _IF statement and the use of a nonstandard 


mumecvilon. - 
NSFORT: NONSTANDARD2*3 X(2),A,B,C,SQROOT(*) 
1 CALL INPUT (A,B C) 
Ze (B¥*2-4*A*C.LT.0O.) CT OR On ae) 
3 X(1)=(-B+SQROOT (B**2-4*A*C))/2.*A 
4 X(2)=(-B-SQROOT(B**2-4*A*C))/2.*A 
5 CALL OUTPUT (X(1)) 
JO STOP 
END 


NONSTANDARD2*3 FUNCTION SQROOT (A) 
NONSTANDARD2*3 A 


7 SQROOT=... 


END 
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FORTRAN: 


72 (90) 


MOO OO 


— 


GENERATED FORTRAN SOURCE PROGRAM 


REAL*8 T$B 
LOGICAL*1 
REAL Gea 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 


INPUT 
N$BBE4 
N$B4MB 
N$BBMB 
N$BBSB 
N$7B11 


IF (T$7(1)) 
3 CALL 


CALL 


—— 


CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
CALL 
SOE 
END 


N$BBN 
N¢BBE4 
N$B4MB 
N$BBMB 
N¢BBSB 
$SQROO 
N$BBAB 
N$BBDI 
N¢$¢BBMB 
N¢BB 
N¢BBN 
N¢$BBE4 
N$B4MB 
N$BBMB 
N¢BBSB 
$SQROO 
N¢BBSB 
N$BBD1 
N$BBMB 
N$BB 
OUTPUT 


( 3 
T$ 
= 

( 


—v w w wo w w we w ww —lv w ww wD wD ww we w w 


Sf 


Sf 


WAAAAAASPWBOWWAAAAAHASBWAODTDW BAAS 


~~ FAA OOH ew mmrrere—n On HHH OHHH oreo an 6 OO 


noe ww w we w we — 


— CS OTM W~— PO — On™ AH OTM w~ PO 


w w w sae w 


ee act acca Meat Mags ett ttl 


w w w eee w 


GENERATED FORTRAN SOURCE PROGRAM 


SUBROUTINE $SQROO (SQROOT,A) 
REAL*8 SQROOT(3) 
REAL* eens) 


CALL N$BB  (SQROOT(1),... 


END 
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It is apparent that FORTRAN functions cannot be used with 
nonstandard arguments, but the above example illustrates 
nen es user can use analogous nonstandard functions and 
let the translator automatically make the required 
aajustments. 

No attempt has been made to describe completely the 
@eri0On Of the NSFORT translator in the body of this paper 
bue Only to illustrate the concept and the power of the 


translator. The reader_is again directed to Appendices F 


and H for a- complete description. 


Ly 








iil...PROBLEMS AND EC gies 


j 


‘The remainder of this thesis will discuss Dal uikeuia te 
problems encountered in the design of the NSFORT transiator 
and the techniques used to overcome them. This project was 
accomplished with the extremely powerful PL/I programming 
language. Extensive use in all aspects of the project was 
free Of the character string handling capability of PL/1, 
notably the VARIABLE attribute of character strings and the 
@maracter string functions SUBSTR and INDEX. 

Clearly the first major task of the translator is the 
etessification of statements. This is accomplished by 
recognizing the distinctive pattern of statements. Since 
blank spaces have no effect (except in literals) in FORTRAN 
they can be eliminated. Thus the first step is to eliminate 
Perks but only up to the first delimiter so as to not alter 
any literal. Assignment statements and statement functions 
are then identified. FORTRAN statements which are neither 
assignment statements nor statement functions are identified 
Peeeuheir first two characters and then by more characters if 
mieetarst two are not unique. The next requirement is to 
remove the literals and replace them by a code; after pro- 
cessing the literals are then reinserted. Removing the 
literals- permits the remaining blanks to be eliminated and 
reduces each statement to an identifiable pattern. 

The largest Single procedure in the translator is the 


one that processes expressions. This procedure is used, 
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as required, for CALL statements, IF stdtementcesandeessien] 
ment statements, and is designed to decompose logical as 
well as arithmetic expressions, and to ¢enerate thesrequimed 
CALL statements. The reverse Polish string method that is 
described by Randell and Russell [Ref. 9] is used. The 
method is simplified somewhat since subscripts may not 
contain nonstandard variables and hence a variable with its 
subscripts may be treated as a single entity. On the other 
hand, the translator's capability to handle nonstandard 
functions made the processing of expressions somewhat more 
iferacate. 

In generalized compiler processing using the reverse 
Polish method there are three steps: (1) generation of the 
reverse Polish string, (2) generation of the triplet list, 
and (3) reduction of thestriplet 1isv) by. tamale iene 
tical triplets and accounting for connected triplets and 
commutative operations. In the NSFORT translator the 
generated CALL statements are analogous to the triplet list. 
Connected triplets offer no advantage in the NSFORT trans- 
lator but efficiency can be increased by eliminating 
meemercal CALL statements. There is a significant trade-oif 
however since sizable storage space must be available for 
wes triplet list with the possible payoff being speedier 
execution. Since it is anticipated that the NSFORT trans- 
lator would be used by proficient programmers, it was 
believed that reducing the triplet list would offer an 


Misi@nificant advantage. Therefore the following variation 


te 





was used, The translator begins generating the reverse 
Polish string until the first triplet sem corp lore aa een 
Bey it the triplet is converted to a CALL statement, which 
is written on an output file, and the temporary variable 
Pemvaining the result of the triplet replaces the triplet 
in that fragment of the reverse Polish string. The trans- 
lator then continues to generate the reverse Polish string 
timer! the next triplet is complete. 

Determining Whevner Or not particular stavemenvomconvara 
nonstandard. variables was a problem owing to the possibility 
feeeoee Use of either implicit or explicit specifications. 
Mees 1S a2 YES or NO determination in the NSFORT translator. 
The technique used is to first check for the presence of 
explicitly declared nonstandard variables or functions. If 
em@emare present then a check is made for implicitly declared 
nonstandard variables. If any are found they must be checked 
against the list of SroIeitly declared variables to insure 
Meeeeene implicit declaration has not been overridden by an 
ereit declaration of the specific identifier. If in the 
process of searching the statement the presence of non- 
Standard variables is ascertained, then the search SAGE SS 
is immediately terminated. 

The NSFORT translator treats each subprogram as an 
independent entity, and is designed to pracess a series of 
subprograms in one execution. The only delineation required 
is the normal END statement. To handle subprograms, certain 


lists of relevant information must be compiled by the 


20 








translator. Essentially, these arevas die eh sex oleic mals 
declared variables, a list, of Amplveitly declarcdsterrers 

of pes alphabet, a list.of dimensioned vari ables eanGeas tat 
of nonstandard function names. When an END statement is 
encountered these lists are erased and the translator is 
prepared for a new subprogram. 

The NSFORT translator was designed and coded to handle 
legitimate FORTRAN statements on an individual basis. It 
has some built-in safety features (the diagnostic messages) 
which were designed to keep the translator from abnormally 
terminating in the system and to prevent the translator from 
doing something incorrectly. The translator is not designed 
to detect FORTRAN syntax errors or statement errors, except 
to the extent described above. Furthermore, an error in a 
specification statement which would render meaningless the 
remainder of the Subprogram will not terminate trans lation 
of that subprogram. 

ihis translator has been extensively tested but, natur- 
pity, tt was impossible to foresee and to test it with every 
possible FORTRAN program. This fact combined with the 
complexity of the task almost certainly assures that future 
Serers in the translation will be uncovered. These will 
memcorrected as they are brought to the author's attention. 

The concept embodied in the NSFORT translator could be 
extended by allowing the user to use unique symbols instead 
of the set of FORTRAN operators to specify the elementary 
operations. In thi: manner the generated subroutine names 


could be made unique. 


rage 








APPENDIX A 


NSFORT TRANSLATOR PROGRAM DESCRIPTION 


The NSFORT translator 1S: Written inetae Pil, 1 err 
ema consists of twenty-six procedures (subprograms). The 
procedure MAIN is the controlling program and the other 
twenty-five are called directly or indirectly when required. 
The translator is presently operational on an IBM 360/67 in 
the OS/MVT environment and uses 150K of core storage. 

The ee eeC ee uses four data sets. Input (NSIN) 
contains card images and is used to read in a nonstandard 
FORTRAN source program. NSLIST is a print file which is 
. used to list the input card images and to display any of 
The diagnostic messages that the translator may generate. 
NSOUT is an output file which contains eard images with 
conventional FORTRAN statements. The NSOUT file may be 
sent directly to the FORTRAN compiler. The NSWORK file 
is a temporary file used by the NSFORT translator. 

In order to translate a nonstandard FORTRAN program into 
a FORTRAN program the translator (in most cases) must-con- 
struct and insert several FORTRAN specification statements 
in the sequence of statements. To effect this the trans- 
lator begins reading statements. If the statement is a 
SUBROUTINE, FUNCTION, or IMPLICIT statement, the translated 
Syeavement is placed in the NSOUT file. After! taesem= gate. 


ments, all subsequently translated statements are placed-in 


ee 





the NSWORK file. When an END statement is encountered the 
translator constructs any specification statements that are 
Milt red and places. them in the NsOUZ Vite — ici aii aes 
the NSWORK file is rewound and the contents are placed in 
the NSOUT file. The NSOUT file now contains a complete 
FORTRAN subprogram. 

Except for the procedure described above the NSFORT 
translator operates on a single pass basis. Each statement 
iamceie nonstandard FORTRAN source program is read, trans- 
lated and output before the next statement is translated. 

As the translator processes a subprogram it stores in 
common storage that information relating to specification 
meevariables, arrays, and functions which is required for 
subsequent statement translation. The twenty-six procedures 
in the translator have access to this common storage as 
necessary. In some cases, however, information is passed to 
eae rom procedures in argument lists of CALL statements. 

The twenty-six procedures that make up the NSFORT trans- 
lator are listed below in alphabetical order (except for 
MAIN). For each procedure the following information is 
given: (a) the function of the procedure; (b) the list of 
other procedures that call the procedure; (c) the list of 
other procedures called by the procedure, and (d) a brief 
feecription of the operation of the procedure. 


1. MAIN (M) 


a. Function. Overall control of the translator. 


-_—- = 


eee Count e Ore eOurrce wa Vener. 
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Cc, .Procedures, called aE ROC Che ein @ ine 

di. Desceripuion.. MATIN wind tial Zes abies iecWe  anerer 
“— card images, and terminates translation. Comment 
eCards encountered are simply rewritten in NSOUT or NSWORK. 
since the translator works with complete eae as the 
basic unit, MAIN also collects all continuation cards prior 
to calling PROCCRD to process the statement. 

2. ASGMTST (A) 

a. Function, Translation of assignment statements. 

pee cl tine procedures... PROCCRD: 

Comeeeoccaures ecalled. DIMEN iy OUr i) Ree ene 
PAPRON, LITLOC, NUCARD, SEARCH. 

d. Descriptian. ASGMTST locates literals (LITLOC) 
and determines whether nonstandard variables are present 
(SEARCH). If none are present the statement is written in 
an output file (DUPEIT). If nonstandard variables are 
Present, the expression to the right of the equal symbol is 
processed (EXPRSN). Finally a CALL statement is constructed 
and written on an output file (NUCARD) which will effect 
the assignment to the result of the expression on the right 
of the equal symbol to the variable on the left. ; 

Bee CALLOT (C) 

a cuide UC LOnmmmicanomationmes CALL Stavements. 

ibe Callimey procedures. GaeROCCRD. — 

Gee rrocedures called,  DUPEIT  EXPRoN{ Eiri. 


NUCARD, PARLOC, SEARCH. 
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d. Description. Literals are located (LITLOC) and 
pope rm neato is made as to the presence of nonstandard 
pee tab les (SEARCH). If nonstandard variables are not 
present the statement is written on an output file (DUPEIT), 
Semerwise, each argument containing nonstandard variables 
is processed by EXPRSN. Finally the statement is recon- 
structed and written on an output file (NUCARD) with the 
arguments being either the original arguments or the result 
of the processed expressions, as appropriate. 

Pec OMarMir (CO) 

Vel uaecu On, | hranslation or COMMON svaveremus: 

Doce lingepmeocedures. “ EROCCRD, 

Cw erocedumeomea bled, DIMENDT DUPE Ti ea RhOne, 
-NUCARD, SEARCH, SQZBLNK, 

d. Description. -Determination 1S made as to the 
presence of nonstandard variables (SEARCH). If nonstandard 
variables are not present the statement is written on an 
output file (DUPEIT), otherwise, the statement is translated 
as described in Appendix F and is written on an output file 
(NUCARD). 

pepe DATAST (DA) 

an uUMeULOnwe Tranakatlvon Obs DATAV Statements. 

Deco! Ne pm Oceaure sm ROCChIy, 

Cee eoceaures vealled. DIMENIT, DUPEIT, ERROR. 
ferLOC. 

Ge Description. Literals are first located 


(LITLOC) and then the statement is examined for implicitly 


Ze 








declared nonstandard variables which have not been dimen- 
Sioned previously. <The statvenecnteis plocedlecnmeanmetnomtr 
File in its original tor, (Duwi 

6.  DIMENIT (DM) 

@a. Function. Construction of a DIMENSION statement. 

|e Ca uaye Erocedures. ASGMTST Ces til ease 
EQUIVST, EXPRSN, NAMELST, READST. 

Cetiocccwmmecsmecalled.,. ERRORS NUGARE. 

ad. Description. DIMENIT is called whenever an 
implicitly declared nonstandard variable is encountered. 
DIMENIT maintains a DIMENSION statement to which variable 
names are added. If the implicitly declared nonstandard 
variable has been encountered previously and dimensioned 
wen control is returned to the calling procedure. If the 
implicitly declared nonstandard variable has not been 
Oemensioned then it 1s added to the DIMENSION statement. 

fone DIMENST (DI) . 

a. Function. Translation of DIMENSION statements. 

eo, Callineeprocedures. FROCCRD. 

ec. Procedures called. ERROR, NUCARD, SQZBLNK. 

d. Description. DIMENST translates DIMENSION 
statements as described in Appendix F. The translated 
statement is then written on an output file (NUCARD). 

oe DOSTME (DOF = 


a. Function. Translation of DO statements. 


Depeche er OceOurec mm amoCCh!. 
CRemeecoccoures called. = ShROk, NUCARIUS SQZBLNK. 
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d. Description, DOSNT rep le ce sme teen Goo i em-amice 
Statement number with another number as described in 
cee F, The original end-of-range statement number is 
stored. The searching of subsequent statement numbers for 
the end-of-range statement is performed by 2ROCCHD ane 
insertion of a new end-of-loop CONTINUE statement is done 
by MAIN. 

Pee DUPE EDD) 

a. Function. Transfer of unaltered statements to 
Sueput files. 

ba CoOllinewomoceduces.) ASCMTST, CALiSr Se ceteriT: 
Peel, ENDSTMT, EQUIVST, FUNCST, IFSTMT, NAMELST, PROCCRD, 
fast, TYPSTMT. 

Gwe ecocecures called. None. 

al: baeeumant On! _When a statement from a nonstan- 
dard FORTRAN source program requires no processing or is 
mieiLvered during processing then DUPEIT is called to copy 
the input card images comprising the statement onto NSOUT 
or NSWORK as required. 

7, ENDSTMT (EN) 

a. Muncvten. Complerion of translation of a 
subprogram. 

Deena procedures. FROCCRD, 

c. Procedures called. DUPEIT, NUCARD. 

dee besch plone fl) Dol Eto wealled whenever e an sail 
statement is encountered in a nonstandard FORTRAN source 


—_— = 


Paorram, ENDSTMT constructs and writes (NUCARD) any 
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necessary speciiszcation statements onto NSoul. li aethenycan— 
pec ates the accumulated NSWORM Tile onto thew SOU i eiales 
Thus NSOUT contains complete FORTRAN source subprograms. 
Finally ENDSTMT signals the end of a subprogram so that MAIN 
zoe relnitialize. 

11. EQUIVST (EQ) 

a. Function. Translation of EQUIVALENCE statements. 

Db. (Callisveeprocedures.. FROCCRD. 

ec. Erocedumes called. | DIMENID, DUPFEDTT> Enron 
NUCARD, SEARCH, SQZBLNK. 

d. Description. EQUIVST translates EQUIVALENCE 
statements as described in Appendix F. The translated 
statement is written on NSWORK by DUPEIT or NUCARD. 

ie. ERROR (E) 

a. Function. Generation of error messages on the 
NSLIST file. ; 

De ccremeoroceaures., | MAIN, ASCMIst Cols 
eeeol, DIMENIT, DIMENST, DOSTMT, EQUIVST, EXPRSN, FUNCST, 
evil, IMPSTMT, LITLOC, NAMELST, NSTDST, PARLOC, PROCCRD, 
HeeboT, TYPSTMT, 

Cc. JEmocedimes called. None. 

ad, Slescritpeion., When any procedure encounlerstan 
unfamiliar construction or the translator's design limita- 
Mons are exceeded, ERROR is called with an error message. 
This message is placed on NSLIST immediately following the 
statement being vranslaved. =fransilation of “Une™=eurrenrL 


— - 


statement is terminated and control is returned to MAIN. 
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13.4. EXPRSN AB 
a. Function.  Translatvion.of arithmetic sands Voeseall 


| ° 
S-oressions. 


D. Calling procedures se loGM lst CABS eeu whine 

eC. Erocedures calleds epIMENIT, ERROR VUeARe 
feeeOC, SEARCH. 

d. Description. EXPRSN is called whenever an 
arithmetic or logical expression containing nonstandard 
femeeables is encountered. EXPRSN translates the expression 
as described in Appendix F. The translation of the 
expression results in a single variable (usually a temporary 
variable constructed by the translator) which contains the 
result of the expression. This result is returned to the 
calling procedure. 

mie FUNCST (F) 

Ere igh ewalongl? Translation of explicitly declared 

FUNCTION statements. 


Da Caldane omocedures. VEROCCRD. : 
mec. Procedures called. DUPEIT, ERROR, NSTDst, 
NUCARD, SQZBLNK. 

ieee DEScCript on EXDlicitly declared FUNCTION 
statements are translated as described in Appendix F. The 
tmenslated statement is written on NSOUT by DUPEIT or 
NUCARD. 
im, iIFSTMT (IF) 


a. Function. Translation of IF statements. 


Da ce ieee Ocoee ss sr OCOD: 
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c. . Procedures calteg. DURE i ein O hemes det ie 
Bean OS NUCARD, PARLOC, SEARCH. 

: qd. Desciipgiion. literals sare shocaved COMMU OTe eta) 
the arithmetic or logical conditional expression is searched 
for nonstandard variables (SEARCH). If necessary the 
expression is translated by EXPRSN. See Appendix F for a 
G@eecription of IF statement translation. If in a logical 
Mao tavement, the statement to be executed contains non- 
standard variables the control is passed back to PROCCRD 
and the statement is treated as the next statement. 

iio. IMPSTMT (T) 

a. Function. Translation of IMPLICIT statements. 
Decc weniemmieececaures, = EROCCRD. 
Come eoccemmecon cal ted. (ERROR, NolDol ee hveAnve 
SQZBLNK., 
dn DescCr peyton The NSPORP translator Mainvainsea 
list of variable types corresponding to the alphabet (plus $). 
When initialized, variable names beginning with letters-I, 
J, K,-L. M or N will be considered INTEGER*4 variables while 
names beginning with any others will be considered REAL#®4. 
When an IMPLICIT statement is encountered this aaehenet dae Shic 
meme vised as called for in the IMPLICIT statement. The 
translation action is performed as described in Appendix F. 
The translated statement is written on the NSOUT file by 
NUCARD. 
17. LITLOC (L) 


—_— son 


ee Pupmel.Onawe= GoCatwom and 1SOlLation of literals. 
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b. Calling procedures. AcGMisT, CALE TU nia. ie 
iol. TYPSTMT. 

ec. Procedures called. ERROR, S@QZBLNK . 

ad. Description, LGiiOC ac called to remove lit- 
erals from statements in order that the statements may be 
more easily processed. LITLOC locates the beginning and 
end of literals, stores them separately, and substitutes a 
code in their place. In this process all blanks except 
Wee in the literals are removed. When the translated 
Statement is ready for output, NUCARD finds the literal 
codes and replaces the original literals. LITLOC will 
recognize either of the two ways of designating literals 
accepted by FORTRAN IV. 

18. NAMELST (NA) 

awe, RuUnetToOnu. Lransiiaviongot NANELIST stavemenvs. 

Oo. Cad lines preceaures. PROCCHDS 

Cee ee cLoce@unes Called. DIMENIT, DUFSIT, ERROR. 
SQZBLNK. : 

mea. Description. NAMELST processes NAMBELIST svave— 
ments as described in Appendix F. The original statement 
is written on the NSWORK file by DUPEIT. ; 
mo: NSTDST (NS) 

a. Function. Processing of the NONSTANDARDi#n 
phrase. | = 

Duc alling Meecedures. HUNCST, IMPSINT yew 


ec. Procedures called. ERROR. 


on 





d. Description. When the NONSTANDARDI*n phrase 
(or any of its optional abbreviations) is encountered NSTDST 
Le Pe live we) Cleneieubhiacs tls ileae csc clenre, type, the nonstandard 
size, and to check for consistency and syntax errors. 

20. NUCARD (N) 

al Function. Construction Of OulpUbecard itlapes- 

De cle ence Ce Ute Soa toni CALLST, COMMS Thi 
PeVeNIT, DIMENST, ENDSTMT, EQUIVST, EXPRSN, FUNCST, I¥STMT, 
MimoIMT, TYPSTMT. 

Caee-erocedures called. None. 

day Description. NUCARD first replaces aimmeeaterats 
in the statement (see LITLOC above). NUCARD then constructs 
the first card image from the statement to include the 
statement number (if any). Continuation cards are construc- 
ted as required. The card images are then written on either 
M@memioOUl file or the NSWORK file as appropriate. 

eee 6d PARLOC 6( PA) 

a eTUne LLOM we sOcCauton wo! 9a Corresponding vc Lose 
Pementhesis. 

cal lnemomoceaunes.. CALLE. EXRRON i youMa 
READST, ; 

Oy meee ectbices joel ierel, ~~ isini@s a 

d, Decierieraon. Ginmiseveral elmgeumstances iv is 
necessary to locate a corresponding closed parenthesis ; 
Meee SUDSCrIpts, argument lists, etc. PARLOC is called to 


perform this task. 
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22 «2 PROCGRPaGe» 

&a. Funetion. Classification of monstandara Oneal 
Statements. 

Dass Calling procedures. Meili. 

c. Procedures called. ASGMTST, CALLST, COMSTMT, 
Sees, DIMENST, DOSTMT, DUPEIT, ENDSTMT, EQUIVST, ERROR; 
moe st. [FSTMT, IMPSTMT, NAMELST, READST, SQZBLNK , TYPSaM. 

dd. Veserimmion. FROCCRD concatenatesscolmnmncn; 
through 72 of the card images containing a single statement. 
Blanks are-then eliminated up to an initial delimiter. 
Various tests are made to determine whether the statement is 
memes ignment statement. If so, ASGMTST is called. If nov, 
gross classification is made based on the first two charac-— 
ters in the statement. In some cases, such as COMMON and 
MeMELEX, finer classifications must be made. If the NSPORT 
Gmenslator is to take no action on the particular statement 
then it is copied into an output file (DUPEIT). Otherwise, 
the appropriate procedure is called to perform the 
necessary translation. Additionally, PROCCRD scans state- 
ment numbers for end-of-loop statements (see DOSTMT above). 

me. READST (R) 

Cee UncelOnA  Lransilavuron Of READ stvavements. 

tice wnemerOcedunes. | PROCCRD. 

[cee RO Cecuic om Calelod mE WEN Ii DURE ee inkvn Ole 


PARLOC, SEARCH, SQZBLNK. 


Se 








qd.  Desexrprion. QREADSL peur CAE action des- 
cribed in Appendix F. The original statement is then copied 
emo NSWORK by BUPEIE. 

aoe SEARCH UGS) 

a. Function. Determination of the presence of non- 
Scvandard variable names. 

b. Calling procedures. ASGMTST, CALLST, COMSTMT, 
MeUIVST, EXPRSN, IFSTMT, READST. 

Cee COCeCiaes ca Dled none, 

d. =Deseription. SEARCH searches statements or 
Bertions of statements for both explicitly and implicitly 
@declared nonstandard variable names. This search is based 
on the lists maintained by IMPSTMT and TYPSTMT. 

fia S@ZBLNK (3S) 

Q-e stUpeevone BEiiminacion of blanks an nonsvancderd 
FORTRAN statements. . 

beeece Sonemomoccdures. COMSIML > DiIMENS 1 ye be 2EinEs 
meen vyol, FUNCST, IMPSTMT, LITLOC, NAMELST, PROCCRD, READST. 
Pe cee clilce ome cdlulod, ss N@iiGr, 


ad. Description. Blanks are eliminated by compres-— 
sing a statement or portion of a statement as erases eee by 
the calling procedure, 
wen TYPSTMT (T) 
io ee chon me atiomlom Ol GoxplVedaie Geelaw atom 


statements. 


b Calling nrocedures. PROCCRD. 
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ec, _ Procedures -called,) DUPEIT. 2 RRO jb areecr 
NSTDST, NUCARD. ‘ 

d, Description. Whe sWSHORT transl arermaiatteamom 
list of all explicitly declared variables and their variable 
@epe. This list is constructed by TYPSIMT. Whe translatron 
See xDlicit declaration statements is as described in Appen- 
dix F. The tranlated statement is written on NSWORK by 


NUCARD or DUPEIT as appropriate. 
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APPENDIX B 


JOB CONTROL LANGUAGE USED WITH THE NSFORT TRANSLATOR 


When the NSFORT Translator is used on the IBM System 
360/67 under OS/MVT four job steps are required. These four 
job steps (with the job step name) are (1) compilation of 
the NSFORT translator source deck (NSFORTC), (2) loading of 
the translator object modules (NSFORTL), (3) execution of 
the translator load module, or translation of the NSFORT 
source program (NSFORTG), and (4) compilation, loading and 
execution of the translated FORTRAN source program (FORTRAN). 

On the following pages the sequence of job steps and 
the job control language is shown. Significant points to 
note are (1) the overlay technique in the NSFORTL step, (2) 
the data sets that must be defined in the NSFORTG step, (3) 
the passing of the FORTRAN source program from the NSFORTG 
step to the FORTRAN step, and (4) the condition code screen- 
ing in the FORTRAN step. . 

By use of a user library the translator may be kept on 
disk on disk as a load module allowing the user to begin 
With the NSFORTG job step. In this case a JOBLIB DD card 
is required and the NSFG 10 card appropriately modified. Job 


control language is also shown for this use of the translator. 
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APPENDIX D 


SYNTAX RULES FOR NSFORT STATEMENTS 


There are only three statements in NSFORT that ore 
ferent from normal HORTRAN. athe syntax Tri tea or sthe. 
statements are listed below. The syntax rules for regular 
FORTRAN statements are in accordance with Reference 8. 

Common to the three NSFORT statements is the word 
NONSTANDARDi*n, which may at any time be abbreviated to 


NONSTDi*n or to NSTDi*n. The rule for this word is as 


follows 
NONSTANDARD 
NONSTD icon 
NSTD 
where i -- is a number from 1 through 6 that signifies 


the FORTRAN variable type to be mapped into. 
The numbers 1 through 6 represent respectively 
REAL*4, REAL*8, INTEGER*2, INTEGER#*4, . 
COMPLEX*8, and COMPLEX*16. There is no mapping 
vO LOGTCAL Variapiies . i 
n -- is a number from 1 through 999 and represents 
the Sivewonr the wonstanderd variable a tack 
nonstandard variable will map into a FORTRAN 
array whose first dimension e ale 
IMPLICIT Statement 
The syntax rules for the IMPLICIT Statement are the same 


as for FORTRAN except that NONSTANDARDi*n (or an accepted 
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abbreviation) may be 


used in the same manner as (COMEIin 


PVTBGER, LOGICAL, and REAL. 


NONSTANDARDi*n Statement. 


The syntax rules 


cation statement are 


for the nonstandard explicit specifi- 


as follows 


[ronsto | i*n a1 (5S )/Xy/sag(So)/Xo/5---s 
NONSTD 
NSTD ACS )/Xe/ 500s sy (Sp )/X/ 
where - a. -~ 1s a nonstandard variable, array, or func-~ 
Z tion name. If as is a nonstandard function 
name then (s;) must be (*) and [x must not 
De muscar 
(s,) -- is optional and gives dimension information 
for arrays or, if (s.) is (*), identifies 
MONS tandarad 1Tuncrion names... faen es iSeect 
series of up through 6 integer constants 
en aitce cer variables if in a subprogram, 
separated by commas, which represent thé 
maximum dimensions of the array. 
(x,) -- is optional and represents initial data 


Valeo ene siMilbetmn and Orde Ol sthesdama 


values must account for the later addition, 


by the NSFORT translator, of n as the first 


dimension. 


NONSTANDARDi*n FUNCTION Statement 


The syntax rules for the NONSTANDARDi*n FUNCTION State- 


ment are as follows 
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NONSTANDARD 
NONSTD i*n FUNCTION name (1 sd50-.+5Ae5.-. 5a) 
NSTD ; J 
where name -- is the name of the nonstandard function. 
a. -- is an argument. It must be a nonsubscripted 


variable, array, or dummy name of another 
Subprogram. There must be at least one 


argument in the argument list. 
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APPENDIX E 


SUMMARY OF NSFORT CODES 


Below are listed the various codes that are used by the 


NSFORT translator. 


A. VARIABLE TYPE CODES 


Variable Type Code Variable Type Code 
-REAL*4 — 7 NONSTANDARDI A 
REAL*8 2 NONSTANDARD2 B 
INTEGER*2 3 NONSTANDARD3 Cc 
INTEGER*4 4 NONSTANDARD4 D 
COMPLEX*8 5 NONSTANDARDS E 
COMPLEX*16 6 NONSTANDARD6 F 
LOGICAL*1 7 
LOGICAL*4 8 


Eee OrERATION CODES 


Operation ode 
AG Gaaiie@ 1 en A 
SUbDUrCAeCG On. = S 
: Mise le aia oie M 
Divisione / D 
Exponentiation: *#* E - 
Unary minus: - N 
Compare: .LT. a 
Compare: .LE. 2 
Compare: .EQ. _ 
Compare: .NE. 4 
Compare: .GE. 5 
Compare: .GT. 6 
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C. SUBROUTINE NAME CODE 


When operations (or comparisons) involving nonstandard 


variables are 


to be performed, the translator generates a 


CALL statement to a subroutine which will perform this- task. 


The subroutine name uniquely identifies this task by means 


of the following format: 


where N$ «+ 


ae 


Ao 
yy (ee 
C ee 


N$abcd 


uniquely identifies this subroutine as one 
which performs tasks involving nonstandard 
Variables. 

is the VARIABLE TYPE CODE representing the 
Variable tyYpesom the resuly or sine mepera vom 
or comparison. The result is the first 
argument in’ the argument Iist for tits ssub— 
routine. 

is the VARIABLE TYPE CODE representing the 
type of the first operand of the operation or 
COMpariseon. “hhe first Operandeis tne woeand 
argument in the argument list. 

is cne OFERATICN COUl tor whe Bneratienten 
comparison to be performed. If "c" is not 
generated then the operation is simple arith- 


metic assignment. (if "c" its not generated, 


then "d" is also not generated.) 
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qd -- is the VARIABLE TYPE CODE representing the 


type of the second operand of the operation 

or comparison. The second operand is the 
third argument dn the arepumentetist. seh cus 
generated and "da" is not, then the operation 


is necessarily unary minus. 


The user must supply the subroutines for which the NSFORT 


translator generates CALL statements. 


D. TEMPORARY 


ae ~~ 


VARIABLE NAME CODE 


When temporary variables are created by the NSFORT trans- 


lator the format employed is 


where Te Se 
2 SS 
— 
J a 


The user has no control over temporary variables. 


T$a(i,j) 


uniquely identifies the variable as one 
created by the NSFORT translator. 

ts the VARTARLE TYPE CODE for this tempoerany 
variable. 

is the subscript which represents the size 
of a nonstandard temporary variable. If the 
VARIABLE TYPE CODE is 1 through 8 (not non- 
stumanray tiie first subscript is not used 
And bhnemiornab es smlsaGi):. 

iS Seem SouESCri meant cmmuls duchy —leenud ites 


different temporary values. 
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APPENDIX F 


TRANSLATOR ACTION FOR SPECIFIC FORTRAN AND NSFORT STATEMENTS 


Arithmetic Assignment Statement. 

If the assignment statement contains no variables that 
have been identified as nonstandard then no action is taken. 
If nonstandard variables are present then the arithmetic 
expression on the right of the "=" symbol is processed, 
yielding one or more temporary variables or, in the case of 
a simple assignment Bement (e.g. "A=B"), the actual 
variable is used. (See Arithmetic or Logical Expression 
below.) A CALL statement is then generated to effect the 
- actual assignment. Implicitly declared nonstandard 
variables encountered in this statement are dimensioned with 
the nonstandard size if this action has not been previously 
taken. For example, 

NSFORT: iy 9 a NONSTANDARD1*2(A-C) ,LOGICAL(P-R) 


A=100. 
P=B.GT.C 


Wh—_ 


FORTRAN: IMPLICIT REA (A-C),LOGICAL(P-R) 
REAL*4 T$A(2 
LOGICAL*1 T$ 
DIMENSION C( 
1 CALL N$AAAA 
CALL N$AA 
CALL N$AI 
CALL N$7A6A 
Pico 19 Gr) 


L*4 

1) 

7) 
2),B(2 
(TSA(1 
(A(1), 
(A(1), 
(T$7(1 


GW PO 


are 





mephmetic or Rogdeal Expressdeure 


Translator action is contingent von the type of statemens 
containing the expression. Using the common reverse Polish 
and triplet method [Ref. 9] the expression is reduced to a 
series of binary operations (except in the cases of unary 
minus and ".NOT."). Nonstandard function references, when 
encountered, are modified to call a subroutine ‘isa a manner 
Compatible with the NSFORT translator's processing of 
NONSTANDARDi*n-FUNCTION. statements. The subroutine name is 
fmermed by truncating the function name to 5 characters and 
concatenating a "$" symbol. (See example below.) For each 
triplet containing nonstandard variables a CALL statement 
is constructed which will cause the desired operation or 
comparison to be performed. For triplets not containing 
nonstandard variables, a-FORTRAN assignment statement is 
constructed which will perform the desired operation or 
femiparison. In both of the above cases the type of the 
result is determined by the NSFORT translator based on the 
types of the operand(s). Temporary variables of the appro- 
priate type are used to store values of intermediate trip- 
lets. The temporary variable containing the result of the 
final triplet contains the value of the expression. If 
the expression was initially degenerate (i.e. a single 
variable name) then no temporary variables are used. 
Implicitly declared nonstandard variables encountered in 


an expression are dimensioned with the nonstandard size if 


— - 


this action has not been previously taken. For example, 


IEE 





NSFORT: IMPLICIT NONSTANDARD2*3(A-C) ,LOGICAL(P-R) 
NONSTANDARD2*3 AVG123(*) 

A100=AVG123(B100 ,B101,B102,0. )**2 

2 P=Bl00.LE. 02 AN0 Bier 


— 


FORTRAN: IMPLICIT REAL 

REAL*8 T$B(3, 

LOGICAL*1 1$7 

DIMENSION B10 

1 CALL $AVG12 ( 
*B102(1), 0.) 

CALL N$BBE4 ( 

CALL N$BB ( 

2 CALL N$7B21 ( 

CALL N$7B21 ( 

_1$7(3) = T$7( 
P = 7$7(3) 


Arithmetic IF Statement. 
If the expression in the arithmetic IF statement con- 

berms no nonstandard variables then no action is taven. If 
nonstandard variables are present the expression is pro- 
cessed. (See Arithmetic or Logical Expression.) The 
resulting expression in this case will necessarily be 
nonstandard. A CALL statement will then be constructed 
which will cause a ".LT." comparison of the expression 
result with zero. Next, a logical IF statement will be 
constructed which, if the above comparison is true, will 
cause control to be passed to the first statement number in 
meemorifinal arithmetic IF statement. Similarly, another 
feo scvacvement will be constructed which will cause an 
"EQ." comparison of the expression result with zero. Again, 
a logical IF statement will be constructed which, if the 


preceding comparison is true, will cause control _to be 
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passed to the second statement number. Following this a GO 
TO statement will be constructed which will by default pass 


control to the third statement number. For example 


NSFORT: IMPLICIT NONSTANDARD4*2(A-C) 
1 IF (A100+A101) 10,20,30 


FORTRAN: IMPLICIT INTEGER*4 (A-C) 
INTEGER*4 T$D(2,1) 
L@G@LCAL*1.137( 1) 
DIMENSTON A101(2 

1 CALL N$DDAD (T$D 
= CAlet ean oy7 Dollie 4 
TFs 7 Cl) ) Ge, 16 
- CALL N$7D31 (T$7(1 
IF (T$7(1)) GO TO 

GO TO 30 


pee 
(1,1), A100(1), Pi ar 
1 +$0() ee oho) 


, 0.0) 


T 
1 
)s 
10 
), T$D(1,1) 
20 


ASSIGN Statement. 

No action is taken. 
Assigned -GO TO Statement. 

No action is taken. , 
Assignment Statement. 

see Arithmetic Assignment Statement or Logical Assign- 
mene otatement. . 
Al otatement. 

WO action is taken. 
BACKSPACE Statement. 

No action is taken. 
BLOCK DATA Statement. 

No action is taken. 
CALL Statement. 


If the argument list contains no nonstandard variables 


Then no action is taken. If nonstandard variesles are 


abs 





present in the argument list then each argument that con- 
tains a nonstandard variable is individually processed. 

(See Arithmetic or Logical Expression above.) The CALL 
statement is then rewritten with the various expression 
results replacing those arguments that contained nonstandard 
Variables. For example, 


NSFORT: IMPLICIT NONSTANDARD6*3(A-C) 
1 CALL SUBA ('PROB1',A100+A101,B100) 


FORTRAN: IMPLICIT COMPLEX*16 (A-C) 
r COMPLEX*16 T$F(3,1) 
DIMENSION A101(3),A100(3) ,B100(3) 
1 CALL N$FFAF (T$F(1,1), A100(1), A101(1)) 
CALL SUBA ('PROB1', T$F(1,1), B100(1)) 


COMMON Statement. 
If the COMMON statement contains no nonstandard vari- 
ables then no action is taken. For each nonstandard 
variable in the COMMON statement that contains dimension 
information the nonstandard size is added as the first sub- 
Serapor. For nonstandard variables containing no dimension 
information and for all non-nonstandard variables no action is 
taken. Implicitly declared nonstandard variables encountered 
in this statement are dimensioned (not in this statement) 
team une nonstandard size if this action has not been 
previously taken. For example, 
NSFORT: IMPLICIT NONSTANDARD2*3 


(A-C 
DIMENSION A100(10), oper 
COMMON A10C,A101(10) ,D 100(1 


) 
,D100(10) 
0) ,A102 
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FORTRAN: Peel] REAL Gmnews 
DIMENSION A102(3) 
DIMENSION A100(3,10) ,A101(3,10) ,D100(10) 
COMMONA100,A101(3,10) ,D100(10) ,A102 


COMPLEX Statement. 

DecwUxplileci te wopecali cations ovavemouu. 
COMPLEX FUNCTION Statement. 

see FUNCTION Statement. 

COVriINuE Statement. 

No. action is taken... 
womerol Statements. 

see specific control statement. 

DATA Initialization Statement. 

im the DATA statement contains any implicitly declared 
nonstandard variables these are dimensioned with the non- 
standard size if this action has not been previously taken. 
For example, 


NSEORT : IMPLICIT NONSTANDARD3*2(A-C) 
~ DATA A100/2*0/ 


FORTRAN: IMPLICIT INTEGER*2 (A-C) 
DIMENSION A100(2) 
DATA A100/2*0/ - 
See 18, Appendix H for coding restrictions. 
DEBUG Statement. 
No -acuion 1S taken. ~ 


DEFINE FILE Statement. 


No action is taken. 


ey 


DIMENSION Statement. 

The NSFORT translator maintains a list of all dimen- 
sioned variable names in order to distinguish between 
assignment statements and statement functions. The nonstan- 
Semee size is added as the first subseripy for all implicitly 
declared nonstandard variables. For example, 


ous R | : IMPLICIT NONSTANDARD1*3(A-C) 
DIMENSION A100(4,10) ,D100(50) 


FORTRAN: IMPLICIT REAL*4 (A-C) 
. DIMENSION A100(3,4,10) ,D100(50) 
See 8, Appendix H for coding restrictions. 
DISPLAY Statement. 
NO action is taken. 
DO Statement. 

In order to permit a acpanbemmerie containing nonstandard 
variables (which will likely be expanded by the NSFORT 
translator into several statements) to be the last statement 
in a DO loop, the statement number defining the loop age be 
modified, The new number will be 99999 minus the number of 
statement numbers the NSFORT translator has generated up to 
Meee DOint. For example, 
eaeORT : IMPLICIT NONSTANDARD5*3(A-C) 

DO 100 I=1,10 


Le (od eae, 2075 100 = 
100 A=B+C 
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FORTRAN: IMPLICIT COMPLEX*8 (A-C) 
COMPLEX*8 T$E(3,1) 
DIMENSION C(3),B(3) ,A(3) 
DO 99999 J=1,10 
IF (J) 10,20,100 
100 CALL N$EEAE (T$E(1,1) 
CALL N$EE (Ava... 1.$ 
99999 CONTINUE 


» BC), C(1)) 
Bele) 


DOUBLE PRECISION Statement. 

pec ExXDIICIt Speci! ICabronmolLavement . 
DOUBLE PRECISION FUNCTION Statement. 

See FUNCTION Statement. 

END Statement. 

iomatveration ObetMe sscatement ts made. This svatemenv 
causes the NSFORT translator to be made ready to process a 
new subprogram. 

END FILE Statement. 

ime action 1S vaken. 
ENTRY Statement. ° 

No action is taken. 
EQUIVALENCE Statement. 

If, the EQUIVALENCE statement contains no nonstandard 
werables then no action is taken. For each nonstandard 
variable in the EQUIVALENCE statement that contains sub- 
Serepts a "1" is added as the first subscript. For non- 
standard variables containing no subscripts and for all 
non-nonstandard variables no action is taken. Implicitly 
declared nonstandard variables encountered in this statement 
are dimensioned (not in this statement) with the nonstandard 


— 


size if this action has not been previously taken. For example, 


ie? 





NSFORT: IMPLICIT NONSTANDARD2*4 
DIMENSTON De ial 


(A-C) 

(10) ,D100 i 
EQUIVALENCE (A100,A101(5) ,D100(5 
FORTRAN: IMPLICIT REAL*8 (A-C) 

DIMENSION A102(4) 
DIMENSION A100(4,10 hg 


) 
EQUIVALENCE(A100,A101(1, 


n— 
— 
CO 
— 
© 
© 
-_— 
on 
— 
> 
= 
ee 
NO 
— ~~ 


Baelicit Specification Statement. 

ror COMPLEX, DOUBLE PRECISION, INTEGER, LOGICAL, and 
REAL type statements no alteration of the statement is made. 
ine NSFORT translator maintains lists of all dimensioned 
variable names and all explicitly declared variable names. 
pee 2, Appendix H for COU restate tLOnsam For exp lie t 
nonstandard declaration see NONSTANDARDi*n Statement. 
EXTERNAL Statement. 

Hoeeaction 1S taken. 
fen Statement. 

io action is taken. 
aon! Statement. 

No action is taken. See 19, Appendix H for coding . 
mestrictions. 
FUNCTION Statement. 7 

Tore ELON Shaveneiuomanewhren tne type 1S nor 
explicitly stated no action is taken. For FUNCTION state- 
Ments that explicitly contain COMPLEX, DOUBLE PRECISION, 
ME@BR, WOGHOM. Oo RONIGRS AIlGSeyEigne ane atecemces Js 
mage. lhe NSFORT translator will add the function name To 


ms list of explicitly declared variable names.= For non 


standard functions see NONSTANDARDi*n FUNCTION Statement. 
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GO. TO Stavenent. 

NOwaction sis taccu, 

IF Statement. : 

see Arithmetic IF Statement or Logical IF Statement. 
IMPLICIT Statement. 

For that portion of the IMPLICIT statement that relates 
to COMPLEX, INTEGER, LOGICAL, and REAL no alteration of the 
statement is made. For that portion that makes nonstandard 
alphabet assignments the IMPLICIT statement is modified in 
that the NONSTANDARDi*n is replaced by REAL*4, REAL*8, 
INTEGER*2, INTEGER*4, COMPLEX*8, or COMPLEX*16 as i is 


1,2,3,4,5 or 6 respectively. For example, 
NSFORT: IMPLICIT INTEGER(P,Q,R), NONSTANDARDI*2 (A-C). 
FORTRAN: IMPLICIT INTEGER(P,Q,R),REAL*4 (A-C) 


A DIMENSION statement is generated in which all implicitly 
declared nonstandard variables used in a subprogram are 
properly dimensioned. See 2, Appendix H for coding 
restrictions. 7 
Input/Output Statements. a 

See specific input/output statement. 
INTEGER Statement. 

Peco lalicit peel l 1 CalLOn eeeee meme 
INTEGER FUNCTION Statement. 3 


See FUNCTION Statement, 


Avail 


fopical Asst seamen otavenents 


If the logical assignment statement contains no non- 
standard variables then no action is taken. If nonstandard 
Variables are present then the logical expression on the 
right of the "=" symbol is processed, yielding a temporary 
logical variable. (See Arithmetic or Logical Expression 
above.) A logical assignment statement is then eonstrueted 
to effect the actual assignment. Implicitly declared non- 
standard variables encountered are dimensioned with the 
nonstandard-size if this action has not been previously 


taken. For example 


NSFORT: IMPLICIT NONSTANDARD1*2 (A-C), LOGICAL (P-R) 
1 P=A.GE.B 
FORTRAN: IMPLICIT REAL*4 (A-C),LOGICAL(P-R) 


DIMENSION B(2) 
1 CALL N$7A5A (T 
P = 7$7(1) 


LOGICAL*] r$7(1) 
»A(2) 
$7(1}, AC1), B(1)) 
BOGICAL Statement. 
see Explicit Specification Statement. 
LOGICAL FUNCTION Statement. 
see HUNCTION Statement . 
bogical IF Statement. 
if neither the logical expression nor the conditional 
statement contain nonstandard variables then no action is 
taken. If the logical expression contains nonstandard 


variables it is processed yielding a temporary logical 


_— - 


variable (See Arithmetic or Logical Expression above. ) 
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If the logical expression does not contain nonstandard 
warrables then dt is > VeGt intact anne CONG asca ome) 
statement does not contain nonstandard variables then the 
logical IF statement is modified in that the logical 
expression is replaced by the temporary logical variable. 
If the conditional statement contains nonstandard variables 
mem Control is routed through or around this conditional 
statement based on the value of the temporary logical 


Variable or the logical expression. For example 


— 


MOEORT : IMPLICIT NONSTANDARD3*2 (A-C) 
% ESO) 0 Pere) 1 si0 
F (A100.GT.B100) GO TO 40 
tf (I.EQ.0) A100=B100+C100 
IF (A100.LT.0) A100=-A100 


PwnMrM-- 


FORTRAN: IMPLICIT INTEGER*2 (A-C) 
INTEGER*2 T$C(2,1) 
BOG IC ATE xsl Seeley) 
DIMENSION B100(2) ,A100(2) ,C100(2) 
bP (1, BORO) SGo 0. 30 
2 CALL N$7C6C (T$7(1), A100(1), B100(1)) 
IF (T$7(1)) GO TO 40 


— 


Sian oN Olea. ire 0} ENO GO NSS) 2 
CAIRN SiG AIT en ele als) By ait COO im 
CALL N$CC (A100(1), T$C(1,1)) 

GING SONAR Us 

ASONGEeNGriGl ewan A100(1), 0) 
IF (.NOT.(T$7(1))) GO TO 99998 
CANS Cele (TSG Cls 1) A001) ) = 
CALL N$CC (A100(1), T$C(1,1)) 


99998 CONTINUE 


NAMELIST Statement. 

If the NAMELIST Statement contains any implicitly 
declared nonstandard variables these are dimensioned with 
the nonstandard size if this action has not been previously 


mm an 


taken. For example 
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NSEORT : IMPLICIT NONSTANDARD6*3 (A-C) 
NAMELIST /XRAY/ A100,D100 


FORTRAN: IMPLICIT COMPLEX*16 (A-C) 
DIMENSION A100(3) 
NAMELIST /XRAY/ A100,D100 


NONSTANDARDi*n Statement. 
The NONSTANDARDi*n is replaced in the same manner as 
the IMPLICIT NONSTANDARDi*n. See IMPLICIT Statement. The 


nonstandard size "n" is added as the first subscript for 


— — 


Peen variable name in the variable name list. The NSFORT 
translator maintains a list of all explicitly declared non- 
standard variable names. Nonstandard function names that 
are declared in the NONSTANDARDi*n statement do not appear 


in the modified type statement. For example 
NSFORT: NONSTANDARD4*2 A100,ABCD(*) ,B100(10,10)/200*0/ 
FORTRAN: INTEGER*4 A100(2) ,B100(2,10,10)/200*0/ 


moe eppendix H for coding restrictions. 
NONSTANDARDi*n FUNCTION Statement. 

"NONSTANDARDi*n FUNCTION" is replaced by "SUBROUTINE," 
Miaeelinction name iS trumcated to 5 characters and concaven— 
ated to the "$" symbol, and the untruncated function name is 
added as the first argument and is explicitly declared and 
dimensioned based on "i." See IMPLICIT Statement. (Note 
that this matches with the treatment of function references 
described Ae Arithmetic and Logical Expression above. ) For 


-_ 


example, 
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NSFORT: NONSTANDARD1*2 FUNCTION SQROOT (A) 


FORTRAN: SUBROUTINE $sQR00 (SQROOT,A) 
REAL*4 SQROOT(2) 
NONSTDI#n Spacenene 

Accepted abbreviation for NONSTANDARDi#*n. 

See NONSTANDARDi*n Statement. 
NONSTDi*n FUNCTION Statement. 

Accepted abbreviation for NONSTANDARDi*n FUNCTION. 
See NONSTANDARDi#n FUNCTION Statement. 

NSTDi*n Statement. 

Accepted abbreviation for NONSTANDARDi#fn. 
See NONSTANDARDi*n Statement. 

- NSTDi*n FUNCTION Statement. 

Accepted abbreviation for NONSTANDARDi*n FUNCTION 
otatement. See NONSTANDARDi&n HUINC ION Sneha Sulsiane - 
Output Statements. 

mee specific output statement. 

PAUSE Statement. 

Popaction LS Lake me 
PRINT Statement. . 

No action is taken. 

PUNCH Statement. 
No action is taken. 
READ Statement. 
If the READ statement contains any implicitly declared 


nonstandard variables these are dimensioned with the 


Leo 


nonstandard size if this action has not been previously 
taken. For example, 


NSFORT: IMPLICIT NONSTANDARD2*3 (A-C)~ 
READ MCE. 10) sA00 


FORTRAN: IMPLICIT REAL*8 (A-C) 
DIMENSION A100(3) 
READ (6,10) A100 
pee 19, Appendix H for coding restrictions. 
REAL Statement.. . 

ec xp imec1l Opeciiacarion obeavemenu. 
REAL FUNCTION Statement. 

see FUNCTION Statement. 

RETURN Statement. 
No action is taken. 
REWIND Statement. a 

No action is taken. 
ewecitication Statements. 

See specific specification statement. 
mmewement Function Definition Statement. 

Bincne Sstvabement function Contains no nonstandard 
variables then no action is taken; otherwise an an 
message is generated by the NSFORT translator, as state- 
ment functions may not contain nonstandard variables. 
pee 10, Appendix H. ~ 
SLOP Statement. 


No action is taken. 
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Subprogram Statements. 


see specific subprogram statement. 
SUBROUTINE Statement. 
No action 1s taken. 
meACE Statement. 
No! action is taken. 
ioe oLavement. 
See Explicit Specification Statement or NONSTANDARDiI*n 
page vemenc. a 
Waele Statement. 
No action is taken. See 19, Appendix H for coding 


restrictions. 
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APPENDIX G 
RESULT TYPE OF Mie Ty PE ser ERAS 
When an operation involving operands of different vari- 
able types is to be performed, the variable type of the 


mesult is determined by the table below. See Appendix HE 


for variable type codes. 


Operand Type - Operand A 


Wee SS ee Ip Be Ie 
a .) 2 eee eee 8 Do Eee 
2 22 2 CO SC ee ee ee: 
3 12) ee eee ee Ee me) eee 
y U2 2 Seo OG. oD) Hat 
Bperand 5 5 6 5 D 5 (lel (Gs Nae 1 
r 6 6 6 yOrO wnOwo oC Dt at 
ype - 
A A A A A A A A B A A FE F 
Operand 
B B BY Bate i ee aioe o. 1: Mee sete 
C CC CaCO tee a CP EE aE 
D Dl pate eel ee): Dee er 
E oe De ees I «5, BO eo sen S 
F 1B 1 RN 8 a 
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APPENDIX H 


DESIGN LIMITATIONS AND RESTRICTIONS 


waives eons: lists the limitations in the design of the 
NSFORT translator and the restrictions to FORTRAN program- 
ming which must be observed when using the NSFORT translator. 
If any of these limitations and restrictions are exceeded or 
violated then three things may happen: (1) the NSFORT trans- 
lator wild issue an error message, and/or (2) an error will 
be caused which will be diagnosed by the FORTRAN compiler, 
or (3) an error will be caused which may produce unintended 
results. For each of the limitations and restrictions below, 
a note will indicate whether or not the NSFORT translator | 
Will recognize the violation. 

ie Use of "Ss" Symbol. The NSFORT translator uses the 
"é" symbol to uniquely identify translator generated tem- 
porary variable names and subroutine names. Any use of the 
combination "T$" as the first two characters of a variable 
Sr array name is not permitted and may lead to erroneous 
results. Any use of "N$" or "$" as the first characters of 
a subroutine name may also cause confusion. (No NSFORT 


error message.) 


eee LNMIELICTY and type otavements. - Phe vsELICiY svave— 


ment, if used, must be the first statement in a main program 
or the second statement in a subprogram. All type state- 
ments must follow the IMPLICIT statement and precede all 


other specification statements. (No NSFORT error message.) 
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3. Nonstandard Sige. Within a subprocram tGheuscize for 
each particular nonstandard type must be consistent. For 
example, NONSTANDARDi*2 and NONSTANDARDJ*3 cannot both be 
used in the same subprogram when i=j. (Error message ~- 
generated, ) 

a Explicitly Declared Variables. The storage 
Papacity constraint for explicitly declared variate and 
array names of any type within a subprogram (including non- 


standard) is 1-+ Be (x, + 3) < 2000 where x, is the number 


=] 
of characters in the it explicitly declared variable or 
@ntay name, and n is the total number of explicitly declared 
variable or array names within a subprogram. (Error 
message generated. ) 

5. Explicitly Declared Nonstandard Variables. The 
Ssvorage capacity constraint for explicitly declared non- 
standard variable and array names within a subprogram is 


Dat Be (x, + i LOC iherce ex toe vie nUMbemEOn charac ters 


i 
in the ith explicitly declared nonstandard variable or - 
array name, and n is the total number of explicitly 
declared nonstandard variable or array names within a 
subprogram. (Error message generated. ) 

6. Nonstandard Functions. The storage capacity con- 
straint for nonstandard function names within a subprogram 
i 1 + Es (x, +1) < 141 where Xs LS Them member sor 
characters in the i%" nonstandard function name, and n is 


the total number of nonstandard function names within a 


subprogram. (Error message generated. ) 
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{. Arrays and Nonstandard, Variables aes (ems Gerace 


capacity constraint for array names and nonstandard variable 


or array names within a subprogram is 1 + oe (x, + ES 


=] 
1000 where Xs is the number of characters in the ith array 
Mame Or nonstandard varlable or array name, and n is the 
toval number of array names and nonstandard variable or 
array names within a subprogram. (Error WOORERS goncmebed. 

8, Explicitly Declared Nonstandard Variablesand the 
DIMENSION Statement. Explicitly declared nonstandard vari- 
ables which are to be nonstandard arrays must have the 
dimension information in the NONSTANDARDi*n statement. 
Explicitly declared nonstandard variable names may not appear 
in a DIMENSION statement. (Error message generated.) 

9. FORTRAN Functions. FORTRAN functions may not 
contain nonstandard variables in their argument list. (Error 
message generated.) 

10, Statement Functions. Statement functions may not 
contain nonstandard variables. (Error message generated. ) 

11. Nonstandard Function Names. Since the NSFORT 
translator truncates nonstandard function names to 5 charac- 
ters and concatenates them to a "$" symbol, the first five 
characters of a nonstandard function name must uniquely 
identify it. (No NSFORT error message.) 

12. - Statement Numbers. Within a subprogram the NSFORT 


translator uses statement numbers beginning with 99999 and 


continuing downward in decrements of one for as many as 


_—< _ 
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needed. Statement numbers that are in the range used by 
the translator may not be used. (No NSFORT error message.) 

13. Variable Names. Assignment statements that begin 
with the character sequences "CALL", "DATA", "ENTRY", 
BeORMAT(", “IF(", "REAL", "READ(™, or "WRITE(", excluding 
blanks, will be mishandled by the NSFORT translator (No 
NSFORT error message.) | 

je Subscripts. SUbSCPIpts May not Contain nemstandard 
variables. (Error message generated.) 

15>. subscripts. Nonstandard variables may not contain 
in excess of six subscripts. (No NSFORT error message.) 

16, Operands. The combined length of a variable name 
ema all its subscript information or a non-nonstandard 
function name and is argument list (including commas and 
parentheses but excluding blanks) in any statement contain- 
ing nonstandard variables must not exceed 30 characters. 

For nonstandard variables the limit is 28 as the NSFORT 
translator must insert two characters. (Error message 
generated.) 

17. ‘Initial Data Values in the NONSTANDARDi*n Statement. 
MaeeNotORT translator takes no action on initial aneae vanes 
in the NONSTANDARDi*n statement. It is necessary for the 
user to insure that the resulting statement after transla~ 
tion will assign values as desired. For example, in the 
statement "NONSTANDARD1*2 ALPHA(10,10)/x,/", there must be 


200 initial values, Xi» Chat will map in the ALPHA array as 


_— = 


oe 


desired. The resulting statement will be 
"REAL *4 ALPHA(2,10,10)/x /" where x, is unchanged. (No 
NSFORT error message. ) ; 

18, DATA Statement. The DATA Statement is not trans- 
formed by the NSFORT translator and thus caution must be 
exercised in using nonstandard variables in this statement. 
Implicitly declared nonstandard variables encountered for 
the first time will be dimensioned with the nonstandard 
eaze, however neither the subscripts nor the number of data 
values in a DATA statement will be altered. A FORTRAN 
eompiler error will result if a nonstandard variable 
appears with subscripts because the NSFORT translator will 
not add a subscript for the nonstandard size. The user 
may make use of the DATA statement by not subscripting non- 
meamdard variables or by -adding the first subscript himself. 
(No NSFORT error message.) 

19. Input/Output. The NSFORT translator takes no 
action on input/output statements except to dimension with 
the nonstandard size, implicitly declared nonstandard 
Variables encountered in NAMELIST or READ statements for 
meemeiitst vine. Wherefore Che user will have to add the 
iorst Subscript for nonstandard eanatanies igs avioakicls) eheleeio 
subscripts are explicitly used in input/output statements. 
The FORMAT statement must be written by the user to account 


for the size of nonstandard variables. (No NSFORT error 


message, ) 


day: 





cO. Expressions. The NSFORT translator evaluates 
expressions using a reverse Polish- and triplet method 
whereby each time a triplet is to enter the reverse Polish 
string it is replaced by the temporary variable containing 
meme triplet result. In this process there are four storage 
constraints which cannot be exceeded. The constraint for 
n 


the length of the reverse Polish string is Y,_, (x, +1) < 100 


=] 
where x, is the length of the jth operand (including sub- 
scripts or arguments but excluding blanks) and n is the 
number of operands present at one time in the reverse Polish 
aeerne. the constraint for the operator stack is n < 30 
where n is the number of operators or nonstandard functions 
mmmere Stack at one time. The constraint for the svack of 
nonstandard function names is es (x, + I=) Sele Weigs Xs is 
the number of characters in the it nonstandard function 
name, and n is the number of nonstandard function names in 
mae stack at one time. The constraint for the length of 
the argument list for a nonstandard function is 100 charac- 
Pets, excluding blanks, after each expression in the argu- 
memuy list has been replaced by a temporary variable. 
(Error messages generated.) ; 

fae Nested DO Loops. The constraint on nested DO loops 
is ae (x, + 6) < 99 where x, is the number of characters in 
the ith statement number, and n is the number of nested DO 


loops at any point in the program with different terminal 


statements. (Error message generated.) 
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APPENDIX 1 


NSFORT DIAGNOSTIC MESSAGES _ 


The following is a list of all ci the NSrorl tranctaro: 
diagnostic messages. These messages are generated when the 
Seansiator encounters a construction which iv does not 
mecornize, when a logic or syntax error is found that 
Prevents proper translation, or when storage space for the 
translator's nookncen das is exhausted. It should be 
emphasized that the translator will not find all errors 
(see Appendix H). The letter(s) preceding the dash in the 
code for the messages is an abbreviation for the name of 


the procedure which found the error. These abbreviations 


are identified in Appendix A. 


A -Q1: DESIGN PARAMETER EXCEEDED: OPERAND. 
The variable name with subscripts or the statement 
function name with dummy arguments to the left of 
the "=" symbol in an assignment statement or 
function exceeds 30 characters excluding blanks. 
(See 16, Appendix H.) ; 

A -O02: STMT FN CONTAINS NONSTD. 
A statement function contains nonstandard variables. 
mnie Adentiticrson Unewtemesci¢e OL anvanicume vile 
assignment statement is subscripted and this iden- 


tifier has not been dimensioned. Therefore this 


statement is interpreted as a statement’ function 


ES 





hee O3: 


A -04; 


CO-O1: 


BO-0 2 : 


CO-03: 


and it contains nonstandard variables. (See 10, 
Appendix H.) 

ASGMT STMT HAS LOG VAR ON ONLY 1 SIDE. 

An assignment statement was found to have a logical 
variable on only one side of the "=" symbol. 

DESIGN PARAMETER EXCEEDED: OPERAND. 

See A -01. In this case the variable is nonstandard 
anda "1." must be cena as the wirst, subscrip. 
Therefore, if the original variable name with sub- 
scripts contains in excess of 28 characters, when 
"1," was added it would exceed 30 characters. (See 
16, Appendix H.) 

NO CLOSE SLASH FOUND. 

A slash was found in a comma statement delimiting 

a labeled common name. No corresponding close slash 
was found in the statement. 

ILLEGAL CHAR FOLLOWS COMMA OR SLASH. 

The character immediately following a comma or a 
slash is illegal. The program is looking at the 
character immediately following COMMON, or a comma, 
or the closing slash on a labeled common a Hie 
is expecting to find a variable name but the first 
letter is not a member of the alphabet or there is 
NoOwVvarlablesmame. — 

VAR IDENTIFIER HAS > 6 CHAR. 

An identifier was found to have more than 6 charac- 


ters, This occurs when there were more than 6 
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CO-04: 


CO-05: 


DA-O1: 


DA-02: 


DA-03: 


characters from the first charaev croton sOcne wie eu 
to an open parenthesis, a comma, a slash, or to the 
end of the COMMON statement. 

NO CLOSE PAREN FOUND. 

A variable name was read, a parenthesis was found 
indicating array information. No corresponding 
close parenthesis was found in the remainder of the 
Statement. 

ILLEGAk CHAR FOLLOWS CLOSE PAREN. 

The character immediately following a close paren- 
thesis was not recognized. The translator expected 
to find a comma, a slash, or the end of the COMMON 
SvavemenG. 

VAR IDENTIFIER HAS > 6 CHAR. 

An identifier was found to have more than 6 charac- 
ters. More than 6 characters from the first char- 
acter of the identifier to an open parenthesis, a 
comma, a Slash, or to the end of the DATA statement 
were found. The first variable was expected to 
begin immediately following the word DATA. 

NO CLOSE PAREN FOUND. 

A parenthesis was found foliomias a variable name 


imdi cating SuUbDSeript anieommarion but ne =correspond— 


-ing close parenthesis was found in the remainder of 


the statement. 


NO CLOSE SLASH FOUND. 


A slash was found indicating constant values but 


Loi 





DA-04: 


wi=-O]: 


r-O02: 


Br-O3: 


DI-04:_ 


DM-O1: 


no corresponding sclose. slash wasmrounG siti ae 
remainder of the statement. 

DATA STMT SYNTAX ERROR. 

The end of statement was encountered unexpectedly 
or an illegal character followed a close parenthesis, 
aces slash, or a comma. 

OPEN PAREN NOT FOUND WHEN EXPECTED. 

The translator was looking for an open parenthesis 
following a variable name. No open parenthesis was 
found in the remainder of the statement. 

EXP DCL NONSTD CHAR IN DIMEN STMT. 

An explicitly declared nonstandard variable was 
found in a dimension statement. (See 8, Appendix 
H.) When a nonstandard variable is explicitly 
declared, the dimensicn information must be con-— 
cained in that “expivere dec larationsand netein 2 
GIimens On Sbatvemenu- wager on ii) CMe wpreciman, 

DESTGN PARAMERERS (EX Ceatan a OrMinlst 

The number and length of items dimensioned in the 
Dreeran Exceeds =yne Seerage capacity for this lise. 
(See 7, Appendix H.) 

NO CLOSE PAREN FOUND WHEN EXPECTED. 


An open parenthesis was found indicating dimension 


-information but no close parenthesis was found in 


the remainder of the statement. 
DESIGN PARAMETER EXCEEDED: DIMLIST. 


See vl -03. 


aL Exs 





DO-O1: 


DO-02: 


EQ-0O1: 


EQ-02: 


pu-03: 


STM NUMBER AC Ge DSS Gseior 

The end-of-range statement. number in a DO statement 
exceeds 5 digits. The statement number begins with 
the first non zero character following the DO and 
extends up to the first non-numeric character 

found (excluding blanks). 

DESTGN PARAMETER VE XCEERED: SLOOP NGSe 

The number and length of end-of-range statement 
numbers of nested DO loops exceeds the storage 
Capacity forvtnio lice s(ccCemcinmeippendis t) 
EQUIVALENCE STMT SYNTAX ERROR, 

The first character of a variable name was expected 
but this character was not a member of the alphabet... 
The first variable was expected to begin immediately 
following the "(" after EQUIVALENCE, 

VAR IDENTIFIER HAS > 6 CHAR, 

An identifier was found to have more than 6 char- 
acters. More than 6 characters from the first 
character of the identifier to an open parenthesis, 
a comma, a close parenthesis or to the end of 
FQUIVALENCE stavement were found. The farst eric 
able was expected to begin immediately following 

the "(" after EQUIVALENCE. 

NO CLOSE PAREN FOUND. a 

An open parenthesis was found but no corresponding 
elese parenthesis was found in the remainder of the 


— 


sentence, 


ibe, 





EQ-04: 


EX-0]: 


EX-O2: 


p= 03: 


EX-04: 


ILLEGAL CHAR FOLEOUS OR VA Seltie 

The character following Va .elesed ake nencate som OL 
recognized or the end of the HQUEVALBENCE Stavement 
occurs unexpectedly. 

NOT. ENSCREE CARS ei Oem 

The logical operator ‘NOT.' was found in an illegal 
poSitaem, It was expected Thiavw Ol. Bioulrdm ic 

bhi iats ae aan along apie caste or immediately following an 
epen Parenthes1s ~yaecoma) Ale Orme Ole 

| SHIGA Ue 1S eas ses UO sy IUPIEIB yA E 

The first character vom ane arithmetic or logical 
EXDres soles Lleol ine =U Malic tareiec Moc eC leCOm Le 
find a letter am the Glonapev y a number swan open 
parenthesis, a period, or a minus sign. 

VAR OR FUNC IDENTIFIER HAS > 6 CHAR. 

A variable or @eunct tome dentifier was slound) vo, con— 
tain more than 6 characters, From the first char- 
gever the Variable Orme rl Ons tdenummre wean 

ar vnmelite. re lauaome yon bom. Cal ope aro sal 
open or close parenthesis, or a comma was not found 
within 6 characters. 

DESIGN PARAMETER EXCEEDED: FNSTAK. 

When processing expressions, nonstandard function 
names are stacked when found. The number of nested 
functions exceeds the storage capacity for this 


list, (See 20, Appendix H.) 


L4O 





EX-05: 


are 06: 


Eee) /: 


NONSTD IN SUBSCRPIS. GR SEUNG S ARG. 

When processing an expression, an open parenthesis 
following an identifier was found indicating sub- 
Seript 1niertiav 1 On One) cl causes ee aie SMe vase 
Within this open parenthesis and its corresponding 
close pagemumes ra. aomnetwernaleres variables were found. 
Nonstandard variables are not permitted in subscripts 
ORS pOsSs i Diy sine thas Case. ene sumer TON Wacmaer 
identified as a nonstandard function. (See 9, 15, 
Appendix H.) 

DESIGN PARAMETER EXCEEDED: RPSTR. 

When procesSing an expression, the length of the 
reverse Polish string exceeded the storage capacity 
for that suru wat Seem 0 NO DCG) ah) 

ILLEGAL CHARS FOLLOWING eae 

A period was found and the character immediately 
following the period was examined. If this character 
was a numeral, the period is treated as a decimal 
point. If the second character is non-numeric, then 
the period was interpreted to be the first perica 

in a logical constant. Therefore another period 

Was eGxpected Aserne er mehmomr sixth character aiter 
the firsitjmeperl OdwnGucarinesa.~.TRUE. Orsa eeAlok. 
This period was not found in the fiftimermesie ch 


Character LolVowinie Sone ibe er LOG, 


el 





ExeOe: 


Ex-O09: 


e.-10: 


EX-11: 


Exe 12: 


EX-13: 


eee l4: 


ILLEGAL CHAR FOLLOWS LOG CONST. 

The program expected to find either a comma, a2 
parentnesis. logleat iD Oh wor ee ie eee feel 
CXDresslonefoll owinepea 'ociCalimconsvant 5 veccee 
otner character was found. | 

DESIGN: PARAMETER EXCEEDED. Se Resa. 

See EX-06. 

DESUGN PARNER bs CEE E Demiie ome e 

See EX-06. 

NO CLOSE PAREN FOUND. 

An open parenthesis was found in a location other 
than immediately after an identifier and no corres- 
ponding close parenthesis was found in the remainder. 
of the statement. 3 
DES TGNSPARAME TERer CEE Viw Re SiR. 

See EX-06. | 

ILLEGAL CHAR FOLLOWS CMPLX CONSTANT. 

The translator program expected to find an arithme- 
ble Operavor, auclose parenunesis , “ascomma,. or eng 
Olmenp ress On Lol oninoeeme Close parenthesis 
Gelimiting a complex constant. ’ 
PEEEGALSGHAR POLEOWS “DEEMMiIn ER: 

The character immediately following an arithmetic, 


relational, ormiveci cal senerater, = Darenchnesis , vom 


a comma constitutes an illegal FORTRAN construction. 
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Em 15: 


Bx-16: 


exe |/: 


EX-18: 


EX-19: 


EX-20: 


UNMATCHED CLOSE PAREN FOUND. 

A close parenthesis was encountered but it has no 
COrrespondacings Open PapventmMesiscmprereOlne Vue 

DEST GN (PARAMETER EXCEEDS Rises s Tlie 

When processing expressions By suhe reverse Lollies 
Str ine method operators are stacked as described 
in Reference 9. The stack exceeds the storage 


capacity allowed by the translator. (See 20, 


- Appendix H.) . 


UNMATCHED OPEN PAREN FOUND. 

An open parenthesis was encountered but it has no 
corresponding close parenthesis in the remainder of 
Ue Siew eine thie. 

DESIGN PARAMETER EXCEEDED: STCK. 

See EX-16. z 

DESIGN PARAMETER EXCEEDED: OPERAND. 

Pe varia le ware me den dhe teenie teers Wl Siededl) cee mcr @ ti 
nonstandard function identifier with arguments 
exceeds 30 characters excluding blanks. (See 16, 
Appendix H.) 

DESIGN PARAMETER EXCEEDED: ARGS. 

The argument list for a nonstandard function iden- 


Pitter exceeds DOU Men otccmetics XC LUGE Om Oneciiiess. 


after each expression in the argument list has been 


replaced by a temporary variable. (See 20, Appen- 


dix H.) 


aS 





ExX-7 |: 


EX-22: 


EX-23: 


EX-24: 


BA. 25: 


EX-26: 


Bac]? 


eA 20: 


DESIGN PARAMETER RE CEE D Ee eet ie 

See EX-06. 

DESIGN PARAMETER EXCEEDED: OPERAND 

see EX-19. 

LOG VAR FOUND IN ARITH EXPR. 

In processing an expression j logical variable or 
constant was encountered but the associated operator 
was not 4&2 le@plCalsopemaror , 

LOG EXPR CONTAINS NONLOG VAR. 

A logical operator was encountered but an associated 
operand was found which was not a logical variable. 
DESIGN PARAME TERME XGE Ee DED Re oR: 

See EX-06. 

EXPR SYNTAX IN ERROR. 

Upon reaching the end of the expression and emptying 
the operator Stack the Paice Olr ale Siew Soe 
have been reduced to a single temporary variable. 
(See Chapter III.) But instead more than one Vie iain 
able was found remaining in the reverse Polish string. 
DESIGN PARAMETER EXCEEDED: OPERAND. 
eee EX-19. 

DESIGN PARAMETER EXCEEDED: OPERAND. 


A nonstandard variable identifier with subscripts 


exceeds 28 characters excluding blanks. (See 16, 


Appendix H.) 


144 





NO OPEN PAREN FOUND IN FUNCTION STMT. 

In a FUCTION statement the open parenthesis that 
precedes the dummy argument list was not found. 
FUNC IDENTIFIER HAS > 6 CHAR. 

In a FUNCTION statement the names of the function 
was found to have greater than 6 characters. 
IMPLICIT SPEC. MUST DEAL W/A-Z,$. 

In an IMPRIGIT stavementuetmem  irst characeer 
following an open parenthesis or a comma was not an 
alphabetic character. 

LAST CRAR UNS iile SPEC were CEDES SST. 

In an IMPLICIT statement the translator found the 
CONSCTUCUTOM Cau emcee aNMCre C> 1s ian colmanorwOpen 
parenGbacsis, b is an alphabetic character, h ws 
not a comma and not ’a close parenthesis (expected 
to be a hyphen), ec is a character which is not 
alphabetic or is alphabetic but precedes b in the 
alphabet. oe renaracce im mia aad © JSeae Conmamormc lose 
parenthesis. 

UNRECOGNIZABLE STATEMENT. 

Mice staveiembs Vasmetaocwe ToC eas IM biG ssince aay 


was determined not to be an assignment statement and 


me befam With Ui bul si memurthicer processing one or 


the following unfamiliar constructions were found. 


a, The nintm character aaecnie Statement, er bac 
second character following a close parenthesis was 


—_— = 


not aC, I, L, N, or R (COMPLEX, INTEGER, etc.). 


5 





HE-O0']: 


i Oe : 


ME= O03: 


IF-04: 


b. The character sequence following COMPLEX was not 
we MBC" or "486 Cle wor the character seauene 
fellowine INTEGER Wwasmnot. (m2 ("sone os 
ec. In the alphabet lists with the construction 

G70 2 ¢ SiiGere G aseaecomma Or Open parenunesiae we 
is an alphabetic character, and c is any character, 
omeCiiticwmemeclOse parenthesis was expected in posi— 
COM Ores buts MONe syac . 1OUNc.. 

OPEN AND CLOSE PARENS ADJACENT. 

if (oilers ave enimEUicmeomtaurlcetlone Lita). awherouar das 
any character, was found. 

ARITH IF STMT CONTAINS LOG EXPRSN. 

The IF statement was classified as arithmetic but a - 
logical expression was found within the parentheses. 
2ND COMMA NOT FOUND IN ARITH IF STMT. 

The IF statement was classified as arithmetic because 
in the right side of the statement a comma was 

found without parentheses. But in processing the 
statement the required second comma was not found. 
DESIGN PARAMETER VEXCEED ED LOOPNOS. 

The translator maintains a temporary stack of nested 
DO loop end-of-range statement numbers. In the 
processing of a logical IF statement the translator 
also uses this stack. The storage allocated to this 


stack is ful lgmei see 2 wie oendix HH.) 
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ee ())) 


M -Ol1: 


M -02: 


NA-O1: 


NA-O2: 


STMT ENDSPRECEDES EEA Reh Be 

A literal was found which was identified by the code 
nH, where n is an integer constant less than 256, but 
n exceeds the remaining length of the statement. 

NO CLOSE QUOTE WAS FOUND. 

A literal was found which was identified by an 
apostrophe but no corresponding close quote was 
found. Note that two adjacent apostrophes cannot 
signify the end_of a literal. 

UNEXPECTED CONTINUATION CARD. 

A NSFORT source program card (other than a comment 
card) with a non-zero, non-blank character in 

column 6 was encountered as the first card in a 
SUDDrOosrane or 6 levis 2 comment meard er sho low — 
ing excessive continuation cards. See M -0O2. 
EACESSIVE CONTINUATION CARDS OVER 19. 

A statement was found to occupy in excess of 20 
Cards 

NOP CEGSE SSA Sie CUNDE 

A slash was found in a NAMELIST statement but no 
corresponding close slash was found in the see ee 
of the statement. 


VAR IDENTIFIER HAS > 6 CHAR. 


An identifier was found to have more than 6 charac- 


ters, More than © characters from the first 
character of the identifier to a comma, a slash, or 


—= ~ 


to the end of the NAMELIST statement were fonds 
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NA-03: 


NS-O1: 


NS-O2:. 


NS-03: 


NS-04: 


NS-05: 


P -O}: 


ILLEGAL CHAR FOLLOWS COMMA OR SLASH. 

The character following a comma or slash was expec- 
ted to be a letter of the alphabet (or $) but 
anothner-charaecver ji iaewwoliac. 

NONSTANDARD SYNTAX ERROR. | 

An "*" was expected as the 6th, 8th, or 13th char- 
acter in the NONSTANDARDi*n phrase, but was not 
found. (See Appendix D.) 

NONSTANDARD TYPE IS NOT 1-6. 

A character other than 1,2,3,4,5 or 6 was found pre- 
ceding the "*" in the NONSTANDARDi*n phrase. (See 
Appendix D.) 

NONSTANDARD SIZE IS UNRECOGNIZABLE. 

A non-numeric character was found cane cara ouly 
following the "*" in the NONSTANDARDi*n phrase. 
(See Appendix D.) 

NONS LOST ZESE* CEE CihRee WOlGl ise 

The n in the NONSTANDARDi*n phrase was found to. 
exceed three digits. (See Appendix D.) 

NONSTD-N USED W/DIFFERENT SIZE. 

Within a subprogram a particular NORE UA rae oe 
was used with differing sizes. This IMO mses heme, 


is not permitted. (See 3, Appendix H.) 


UNRECOGNIZABLE STATEMENT. ~ 


The translator was attempting to classify a state- 
ment but could not. The statement was determined to 


=< 


be neither an assignment statement nor a statement 
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PA-O1: 


fee Ol: 


hoes O2: 


R -03: 


R -04: 


function and the first two characters were un-= 
recoentaapiktes 

UNMATCHED PARENS FOUND. : 

An Open panenemesisawas found DUG nos corresnonding 
close parenthesis was located in the remainder of 
Chey Stave emir 

UNFAMILIAR READ STMT SYNTAX. 

The translator was searched for the beginning of the 
input List. -If an open parenthesis follows READ 
then the translator failed to find a close paren- 
wie Sule. 

ILEEGAL US i CaAR Ths OSE TS Th Ter. 

The first character in the input list was found to 
be other than an open parenthesis or letter of the 
alphabet. = 

VAR IDENTIFIER HAS > 6 CHAR. 

An identifier was found to have in excess of 6 
characters. More than 6 characters from the first 
character of the identifier to an open parenthesis, 
a comma, or to the end of the READ statement were 
ORC: ¢ 

READ STMT SYNTAX ERROR. 

Phe trans aver OTe eniieean COMMA Ol WemcmG Oil 
the READ statement following a close parenthesis. 
1ST LTR OF VAR NAME MUST BE A-Z,$. 

The first character following the type*n phrase or 


following a comma is not a letter of the alphabet. 
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T -02: 


im -03: 


ie 04: 


VAR NAME HAS MORE THAN SIX CHAR. 

An identifier was found to have in excess of 6 
characters. More than 6 characters from the first 
character of the identifier to an asterisk, an 
open parenthesis, a slash, a comma, or to the end 
of the statement were found. 

LELEGA Eee eNONSTD SPEC. 

An asterisk other than that in the NONSTANDARDi*n 
phrase Crvtiece identifying nonstandard function 
names was found. (See Appendix D.) 

DESIGN PARAMETER SE CRENED=  SEAPLIST. 

The number and length of explicitly declared vari- 
able names exceeds the storage capacity for this 
list. (See 4, Appendix H.) 

DESIGN PARAMETER_EXCEEDED: EXPNSL. 

The number and length of explicitly declared non- 
standard variable names exceeds the storage capacity 
for this 1st eccemoem ppecndix HH.) 

DESIGN PARAMETER EXCEEDED: NSFNS. 

The number and length of nonstandard function names 
exceeds the storage capacity for this list. “(ee 
5 aisyolctarcinlos Jal 5) 

ILLEGAL CHAR AETER WON S Rin. 


Following the declaration of a nonstandard function 


name, the translator expected to find a comma or 


the end of the statement. 


dnS Ve 


T -08: 
T -09: 
i= 10: 


| [Saya 


DESTGN PARAMETER EXCEEDED. METS te 

See DI-03. 

NO CLOSE PAREN FOUND. 

An open parenthesis was encountered but no corres- 
ponding close parenthesis was found in the remainder 
of the Stavgemenc. 

NO CLOSE SLASH FOUND. 

An open slash was Rotud but no corresponding close 
slash was found in the remainder of the statement. 
ILLEGAL CHAR FOLLOWS PAREN OR SLASH. 


The character following "*16", "* ', a close paren- 


thesis, or a close slash is not legal. 
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